Código fuente de 'Propiedades navegador 3.asp'
<html>
<head>
<title>Propiedades navegador 3 - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b>
<font size="3">Propiedades navegador 3</font></b>
<body style="font-family: Arial; font-size: 11pt">
<br><br>
<%
'EXAMPLE USAGE
'bFrames = PropiedadesNavegador("Frames")
'if bFrames = false then response.Redirect "NoFrames.htm"
Function PropiedadesNavegador(Capability)
dim bAns
set oBrowser = Server.CreateObject("MSWC.BrowserType")
Select Case UCase(Capability)
Case "TABLES"
bAns = oBrowser.Tables
Case "FRAMES"
bAns = oBrowser.Frames
Case "JAVA"
bAns = oBrowser.JavaApplets
Case "COOKIES"
bAns = oBrowser.Cookies
Case "ACTIVEXCONTROLS"
bAns = oBrowser.ActiveXControls
Case "BACKGROUNDSOUNDS"
bAns = oBrowser.BackgroundSounds
Case "JAVASCRIPT"
bAns = oBrowser.JavaScript
Case "VBSCRIPT"
bAns = oBrowser.VBScript
Case Else
bAns = False
End Select
PropiedadesNavegador = bAns
set oBrowser = Nothing
End Function
if propiedadesNavegador("tables")=true then
response.write "Tu navegador acepta tablas<br>"
else
response.write "Tu navegador NO acepta tablas<br>"
end if
if propiedadesNavegador("frames")=true then
response.write "Tu navegador acepta frames (marcos)<br>"
else
response.write "Tu navegador NO acepta frames (marcos)<br>"
end if
if propiedadesNavegador("java")=true then
response.write "Tu navegador permite applets java<br>"
else
response.write "Tu navegador NO permite applets java<br>"
end if
if propiedadesNavegador("cookies")=true then
response.write "Tu navegador permite cookies<br>"
else
response.write "Tu navegador NO permite cookies<br>"
end if
if propiedadesNavegador("activexcontrols")=true then
response.write "Tu navegador acepta controles activeX<br>"
else
response.write "Tu navegador NO acepta controles activeX<br>"
end if
if propiedadesNavegador("backgroundsounds")=true then
response.write "Tu navegador puede reproducir música<br>"
else
response.write "Tu navegador NO puede reproducir música<br>"
end if
if propiedadesNavegador("javascript")=true then
response.write "Tu navegador acepta javascript<br>"
else
response.write "Tu navegador NO acepta javascript<br>"
end if
if propiedadesNavegador("vbscript")=true then
response.write "Tu navegador acepta vbcript<br>"
else
response.write "Tu navegador NO acepta vbcript<br>"
end if
%>